Ì i 2
main
[mnemonic]
&(D)DJB[djb]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 12 FREE L djb
active 1 YN L &(D)DJB[djb]|0
ccl.doc.rcr.dpm 25 FREE L &(D)DJB[djb]CCLRCR|1
ccl.doc.rcr.procedure 25 FREE L &(D)DJB[djb]CCLRCR|2
ccl.magic.rcr.pgm.name 50 FREE L &(D)DJB[djb]CCLRCR|0
cleanup.logic 60 FREE L &(D)DJB[djb]P|1
cust.pgm.type 8 CHOICE L &(D)DJB[djb]|3
dad.specific 1 YN L &(D)DJB[djb]|13
doc.dpm 25 FREE L &(D)DJB[djb]|8
doc.procedure 25 FREE L &(D)DJB[djb]|9
inq.arguments 1 FREE L &(D)DJB[djb]|11
magic.pgm.name 50 FREE L &(D)DJB[djb]|4
name 50 FREE L &(D)DJB[djb]|1
pgm.purpose 3 FREE L &(D)DJB[djb]|12
pgm.type 8 FREE L &(D)DJB[djb]|3
process.option.text 40 FREE L &(D)DJB[djb]|5
rcr.visit.info 1 YN L &(D)DJB[djb]|10
screen 10 FREE L ABS.SCREEN &(D)DJB[djb]|6
separate.tape.per.type 1 YN L &(D)DJB[djb]|7
setup.logic 60 FREE L &(D)DJB[djb]P|0
source 1 CHOICE L &(D)DJB[djb]|2
Ì € i 2
canadian.dad.versions
[mnemonic, dad.version]
&(D)DJB[djb]DAD[dco]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dad.version 15 FREE L ABS.CAN.DAD.VERdco
dad.magic.procedure 66 URN L NPR.PROC &(D)DJB[djb]DAD[dco]|0
Ì € i 2
fields
[mnemonic, field]
&(D)DJB[djb]F[djbF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
field 10 FREE L djbF
Index Files Subscripts/Physical Base
pgm.type.x [pgm.type,mnemonic]
&(D)DJBI[djbP,djb]
screen.x [screen,mnemonic]
&(D)DJBS[ds,djb]
|
|
| |